* progmodes/octave.el (user-error): Alias to error if not defined.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d90caded3082489e51b1b46b0eeff1bf71907c16..a2719a2ebf46a8ed4a9194a92eabeada53467cf3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,7 @@
        (octave-help-file, octave-help-function): New button types.
        (octave-help): New command and bind it to C-h ;.
        (octave-find-definition): New command and bind it to M-.
+       (user-error): Alias to error if not defined.
 
 2013-05-02  Leo Liu  <sdl.web@gmail.com>
 

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 3fe840300035af4d071cdd49ff20f02ab24e69ac..10f6007204b036a0bdfe7ef95392ae5af6cbc384 100644 (file)
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -36,6 +36,9 @@
 
 ;;; For emacs < 24.3.
 (require 'newcomment)
+(eval-and-compile
+  (unless (fboundp 'user-error)
+    (defalias 'user-error 'error)))
 (eval-when-compile
   (unless (fboundp 'setq-local)
     (defmacro setq-local (var val)